home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / parsin' practice (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  23KB  |  652 lines
  1. 100 printchr$(147):poke53280,0:poke53281,0
  2. 110 clr:printchr$(14):poke649,0:printchr$(8)
  3. 120 gosub6500
  4. 130 fora=828to914:readb:pokea,b:c=c+b:next
  5. 140 poke6,0:sys828
  6. 150 data 120,169,81,141,20,3,169,3,141,21
  7. 160 data 3,169,0,141,147,3,141,148,3,88
  8. 170 data 96,206,148,3,16,58,169,10,141,148
  9. 180 data 3,169,0,133,2,133,4,169,4,133
  10. 190 data 3,169,216,133,5,162,4,160,0,177
  11. 200 data 4,41,15,197,6,208,9,177,2,41
  12. 210 data 127,13,147,3,145,2,200,208,236,230
  13. 220 data 3,230,5,202,208,227,173,147,3,73
  14. 230 data 128,141,147,3,76,49,234
  15. 240 goto340
  16. 250 restore:fori=1to87:readd:nexti
  17. 260 poke54296,15
  18. 270 poke54277,0:poke54278,240
  19. 280 readm:readn:reado
  20. 290 ifn=-1thenreturn
  21. 300 poke54273,m:poke54272,n:poke54276,17:forp=1too:next:poke54276,16
  22. 310 goto270
  23. 320 data 12,143,100,8,97,500
  24. 330 data -1,-1,-1
  25. 340 print"";:printtab(5)"[156]                               "
  26. 350 forx=1to3:printtab(5)" ";:printtab(35)" ":nextx
  27. 360 printtab(5)"                               "
  28. 370 poke214,2:print:printtab(13)
  29. 380 v$="[153][208][193][210][211][201][206]' [208][210][193][195][212][201][195][197]"
  30. 390 fori=1tolen(v$):printmid$(v$,i,1)" [157]";
  31. 400 forx=1to25:nextx:nexti
  32. 410 poke214,3:print:printtab(13)
  33. 420 v$="[183][183][183][183][183][183]  [183][183][183][183][183][183][183][183]"
  34. 430 fori=1tolen(v$):printmid$(v$,i,1)" [157]";
  35. 440 forx=1to15:nextx:nexti
  36. 450 forx=1to350:nextx
  37. 460 poke214,8:print:printtab(10)"[158][215]ould you like sound?":poke649,10
  38. 470 poke214,10:print:printtab(13)"[208]ress [154][217] for [217]es"
  39. 480 printtab(13)"[208]ress [154][206] for [206]o"
  40. 490 getk$:ifk$=""then490
  41. 500 ifk$<>"n"andk$<>"y"thengoto490
  42. 510 poke649,0
  43. 520 ifk$="n"thenmm=1
  44. 530 ifk$="y"thengosub2600
  45. 540 poke214,8:print:printtab(9)"[158][196]o you need directions?":poke649,10
  46. 550 getk$:ifk$=""then550
  47. 560 ifk$<>"y"andk$<>"n"thengoto510
  48. 570 ifk$="y"thengoto590:poke649,0
  49. 580 ifk$="n"thengoto800:poke649,0
  50. 590 print"[147]";:poke214,0:print:printtab(14)"[196][201][210][197][195][212][201][207][206][211]"
  51. 600 poke214,1:print:printtab(14)"[153][183][183][183][183][183][183][183][183][183][183][154]"
  52. 610 poke214,2:print:printtab(4)"[217]ou will be presented with up to 25 sentences.";
  53. 620 print"  [217]ou should study each one   carefully.";
  54. 630 print"  [198]or each sentence, you      will first be asked to pick out the"
  55. 640 print"[211][213][194][202][197][195][212][154].  [212]ype out your answer exactly  as it appears";
  56. 650 print" in the sentence and press [156][210][197][212][213][210][206][146][154].  [193]fter the computer responds"
  57. 660 print"to your answer, follow the same         procedure for the";
  58. 670 print" [214][197][210][194][154]."
  59. 680 print"    [212]he answers for both subject and    verb are often only one";
  60. 690 print" word in length, but sometimes they are more.";
  61. 700 print"  [211]ome main verbs also include helping verbs.
  62. 710 [153]"    valach subject and verb has its own   assigned point value.";
  63. 720 [153]"  left$arder answers"
  64. 730 [153]"have higher point values."
  65. 740 [153]"clr    (NULL)o end the program early press the  sysasc1clr key, rather than the";
  66. 750 [153]" space bar,      between sentences."
  67. 760 [151]214,22:[153]:[153][163]9)"sys--> (NULL)(NULL)val(NULL)(NULL) atn(NULL)(NULL) (NULL)val(NULL) sys<--";
  68. 770 [151]214,23:[153]:[153][163]13)"usrusrusrusrusrcloseusrusrusrcloseusrusrusr";
  69. 780 [151]649,10
  70. 790 [161]k$:[139]k$[178]""[167]790
  71. 800 [151]649,0
  72. 810 [153]"load";:[151]214,1:[153]:[153][163]14)"(NULL)(NULL)len(NULL)(NULL)close(NULL)(NULL)(NULL)peekval(NULL)cont":[151]214,3:[153]
  73. 820 [153][163]5)"peekefore each game you are allowed topick your (NULL)(NULL)len(NULL)(NULL)";
  74. 830 [153]" (NULL)(NULL)(NULL)peekval(NULL) (1-7)cont."
  75. 840 [151]214,6:[153]:[153][163]5)"valverytime you are given a new      sentence,";
  76. 850 [153]" the computer will also pick a number.";
  77. 860 [153]"  right$f your (NULL)(NULL)len(NULL)(NULL) (NULL)(NULL)(NULL)peekval(NULL)cont matches   the computer's,";
  78. 870 [153]" you will receive a peek(NULL)(NULL)(NULL)(NULL)contof between print100cont and print200cont points,";
  79. 880 [153]" contbut only if you answer peek(NULL)(NULL)left$ the subject and the  verb correctly!"
  80. 890 [151]214,14:[153]:[153][163]5)"print(NULL)ress a key (1-7)":[151]649,10
  81. 900 [151]214,15:[153]:[153][163]24)"openusrusrusrusrusr":[151]649,10
  82. 910 [161]ln$:[139] ln$[178]""[167]910
  83. 920 [139]ln$[179]"1"[176]ln$[177]"7"[167]910
  84. 930 [151]649,0
  85. 940 [151]214,14:[153]:[153][163]26)"";ln$
  86. 950 [151]214,16:[153]:[153][163]5)"clr(NULL)lease select your number of"
  87. 960 [153]"sentences (input # and press (NULL)val(NULL)(NULL)(NULL)(NULL)).":[151]649,10
  88. 970 [151]214,19:[153]:[153][163]5)"for(NULL)our lenhoice? ";:[141]6280:np[178][197](np$)
  89. 980 [139]np[179]1[176]np[177]25[167][151]214,19:[153]:[153]"                             "
  90. 990 [139]np[179]1[176]np[177]25[167][137]970
  91. 1000 [151]214,22:[153]:[153][163]13)"clr(NULL)(NULL)val(NULL)(NULL)closeatn(NULL)(NULL) (NULL)val(NULL)";
  92. 1010 [161]k$:[139]k$[178]""[167]1010
  93. 1020 [151]649,0
  94. 1030 [137]1570
  95. 1040 bo[178]0:[153]"loadpoke";:[151] 53280,2:[151]53281,1
  96. 1050 [153]"clr            (NULL)atn(NULL)(NULL)right$(NULL)' (NULL)(NULL)atnlen(NULL)right$lenval           waitcont";
  97. 1060 [153]"";:[129]x[178]1[164]12:[153][163]0)"clr ":[130]x
  98. 1070 [129]z[178]1063[164]1503[169]40:[151]z,160:[151]z[170]54272,4:[130]
  99. 1080 [153]"poke":[129]x[178]1[164]11:[153][163]12)"*";[163]27)"*"
  100. 1090 [130]x:[153]"";
  101. 1100 [151]214,11:[153]:[153]"****************************************";
  102. 1110 [153]"":[129]x[178]1[164]11:[153]"print           ":[130]x
  103. 1120 [153]"":[129]x[178]1[164]11:[153][163]13)"open              ":[130]x
  104. 1130 [153]"":[129]x[178]1[164]11:[153][163]28)"sys           "
  105. 1140 [130]x
  106. 1150 [151]214,2:[153]:[153][163]1)"(NULL)oint (NULL)alue"
  107. 1160 [151]214,4:[153]:[153][163]3)"clr......."
  108. 1170 [151]214,5:[153]:[129]x[178]1[164]3:[153][163]3)".     .":[130]x
  109. 1180 [151]214,8:[153]:[153][163]3)"......."
  110. 1190 [151]214,1:[153]:[153][163]14)"for(NULL)our  (NULL)umber"
  111. 1200 [151]214,2:[153]:[153][163]18)"clr....."
  112. 1210 [151]214,3:[153]:[129]x[178]1[164]2:[153][163]18)".   .":[130]x
  113. 1220 [151]214,5:[153]:[153][163]18)"....."
  114. 1230 [151]214,6:[153]:[153][163]13)"forlenomputer  (NULL)ick"
  115. 1240 [151]214,7:[153]:[153][163]18)"clr....."
  116. 1250 [151]214,8:[153]:[129]x[178]1[164]2:[153][163]18)".   .":[130]x
  117. 1260 [151]214,10:[153]:[153][163]18)"....."
  118. 1270 [151]214,2:[153]:[153][163]28)"(NULL)our  (NULL)core"
  119. 1280 [151]214,4:[153]:[153][163]30)"clr......."
  120. 1290 [151]214,5:[153]:[129]x[178]1[164]3:[153][163]30)".     .":[130]x
  121. 1300 [151]214,8:[153]:[153][163]30)"......."
  122. 1310 [151]214,4:[153]:[153][163]19)"";[197](ln$)
  123. 1320 [139]ys[179]10[167][151]214,6:[153]:[153][163]32)"";ys
  124. 1330 [139]ys[177][178]10[167][151]214,6:[153]:[153][163]31)"";ys
  125. 1340 [141]1360
  126. 1350 [142]
  127. 1360 [129]x[178]1[164]30:cp[178][181]([187](1)[172]7)[170]1:[151]214,9:[153]:[153][163]19)"";cp
  128. 1370 [130]x
  129. 1380 [139]cp[178][197](ln$)[167][151]6,8:[129]x[178]1[164]1700:[130]x:[141]1400
  130. 1390 [142]
  131. 1400 [151]6,0:[153]"":[129]x[178]1[164]11:[153][163]13)"              ":[130]x
  132. 1410 [153]"";:[153][163]11)"stop(NULL)atn(NULL)(NULL)right$(NULL)'  (NULL)(NULL)atnlen(NULL)right$lenval!"
  133. 1420 [139]mm[178]1[167][137]1450
  134. 1430 so[178]54272:[151]so[170]24,15:[151]so[170]6,240:[151]so[170]4,17
  135. 1440 [129]v[178]1[164]10:[129]w[178]1[164]185[169]10:[151]so[170]1,w:[130]w:[130]v:[151]so[170]4,32
  136. 1450 [151]214,2:[153]:[153][163]16)"peek";[163]18)"(NULL)";[163]20)"(NULL)";[163]22)"(NULL)";[163]24)"(NULL)
  137. 1460 poke214,4:print:printtab(16)"[144]........."
  138. 1470 poke214,5:print:forx=1to3:printtab(16)".       .":nextx
  139. 1480 poke214,8:print:printtab(16)"........."
  140. 1490 forc=1to22:bo=int(rnd(1)*101)+100:poke214,6:print:printtab(18)"";bo
  141. 1500 forx=1to25:nextx
  142. 1510 poke214,6:print:printtab(18)"     "
  143. 1520 forx=1to25:nextx
  144. 1530 nextc
  145. 1540 poke214,6:print:printtab(18);bo
  146. 1550 forx=1to750:nextx
  147. 1560 return
  148. 1570 qu=150:i=rnd(-ti):restore:nd=1:dimdp(qu):vo=0:qw=0
  149. 1580 gosub1040
  150. 1590 i=int(rnd(1)*qu)+1:ifdp(i)=1thengoto1590
  151. 1600 dp(i)=1:i=(i*5)-4:i=i+96
  152. 1610 forh=1toi:readqu$:nexth:readan$(1):readpo$(1):readan$(2):readpo$(2)
  153. 1620 gosub5810
  154. 1630 poke214,13:print:printtab(4)"[156][211][197][206][212][197][206][195][197] #";n